home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 7 / HYPERLIB-1993-VOL7-CD1.ISO.7z / HYPERLIB-1993-VOL7-CD1.ISO / MMToolkit Updater / MMToolkit Updater.sea / Toolkit Updater / Updater 1.0x->1.02 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1993-06-17  |  8KB  |  41 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.02</name>
  5.     <id>-1</id>
  6.     <cardCount>18</cardCount>
  7.     <cardID>2953</cardID>
  8.     <listID>10573</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>on magicglobal lockedif locked is not false thenput false into lockedelseput true into lockedend ifend magicon aslset scripttextfont to aslfont+end aslfunction checkVersion fnamereturn GetVerRes(fname)end checkVersionon updateItset lockmessages to trueif checkWill() is not true then exit updateItif checkStackList() is not true then exit updateItlock screenpush cardpatchScriptpatchPicturepatchResourcecompactStackspop cardunlock screenanswer "ﾃｧﾃ湘｣竏†ﾃ‡邃｢ﾃｨIﾃｳﾏ\ﾃｭvﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩ" with "ﾃｨIﾃｳﾏ\"domenu "quit hyperCard"end updateItfunction hasContains searchStr,dbif searchStr is empty then return truerepeat with i = 1 to the number of lines of dbif searchStr is line i of db then return iend repeatreturn emptyend hasContainsfunction separatePath pathrepeat with i = the number of chars of path down to 1if char i of path is ":" thenput return into char i of pathput line 1 of path & ":" into line 1 of pathexit repeatend ifend repeatreturn pathend separatePathfunction checkStackListglobal gStackList,gTargetStackListput empty into gStackListput empty into gTargetStackListpush cdlock screengo cd "Preference"answer file "Start MultiMediaToolkitﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢" of type "STAK"if it is empty then return falseput separatePath(it) into homePathput fld "stackList" into stackListrepeat with i = 1 to the number of lines of stackListif there is a file line 1 of homePath & line i of stackList thenput line 1 of homePath & line i of stackList into line i of gTargetStackListput line 2 of separatePath(line i of gTargetStackList) into line i of gStackListif the stacksinuse contains line i of gTargetStackList or the windows contains line i of gStackList thenanswer "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃｩﾂｿﾃｧsﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"return falseend ifend ifend repeatpop cdunlock screenif gTargetStackList is not empty then return truereturn falseend checkStackListfunction checkWillanswer "ﾃｫﾅ津ｨ竄ｬﾃ‡竏†ﾃ‡ﾂｻﾃ‡ﾃ暗厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃ陛迂ﾃ嘉､ﾃ姥ﾃ永ﾃ嘉｣ﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"ﾂｬ& "ﾃ‡窶ｹﾃ‡ﾎｩﾃ②ﾃｯﾅ禿ｧXﾃ‡邃｢ﾃ ﾅｸﾃｨﾃ古ｨIﾃｳﾏ\ﾃ‡ﾂｵﾃ‡ﾎｩﾃｨﾃ催ｧﾃ｡ﾃ②ﾃｯﾅ禿ｧXﾃ‡邃｢ﾃｬrﾃｭﾃ愿‡竕暗ｨIﾃ‡ﾃ古‡ﾂ｡ﾃ‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥‡ﾃε‡竕暗②" ﾂｬ& "ﾃ‡ﾂｪﾃ‡ﾃεｨﾃ催ｧﾃ｡ﾃ迂ﾃ嘉､ﾃ姥ﾃ永ﾃ嘉｣ﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡窶ｦﾃｬﾂｸﾃ‡ﾃ催ｫﾃｷﾃ‡ﾂｶﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & return & ﾂｬ"ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃ陰ﾃ叡ﾃ益ﾃ映ﾃ…[ﾃ曳ﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"if it is not "ﾃ‡ﾃ陛‡ﾂ｢" thenreturn falseelsereturn trueend ifend checkWillon patchScript-- global gStackList,gTargetStackListglobal gStackList,gTargetStackList,orgscript,ttlock screenpush cardrepeat with i = 1 to the number of cards of bg "scriptPatch"set cursor to busygo card i of bg "scriptPatch"put long name of this card into returnCardput fld "card id" into targIDput fld "item" into targItemput fld "original" into orgScriptput fld "patched" into patchedScriptput fld "version" into stackVersionput fld "position" into changePositionput fld "stackName" into stackNameif getVerRes(line hasContains(stackName,gStackList) of gTargetStackList) >= stackVersion then next repeatgo card id targID of stack line hasContains(stackName,gStackList) of gTargetStackListif the result is not empty thenanswer "ﾃ､Yﾃｬﾃｱﾃ‡竏妥‡ﾃ暗雨ﾃ…[ﾃ栄ﾃ‡邃｢ﾃ･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩ"go returnCardnext repeatend ifget script of targItemif changePosition is empty thenput 1 into startposput the number of lines of it into endposelseput item 1 of changePosition into startposput item 2 of changePosition into endposend ifput line startpos to endpos of it into ttif tt is not orgScript thenanswer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃ陛ｯﾅ禿ｧXﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③ﾃ迂ﾃ嘉､ﾃ姥ﾃ永ﾃ嘉｣ﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③(" ﾂｬ& stackName & ")"go returnCardnext repeatend ifput patchedScript into line startpos to endpos of itset script of targItem to itgo returnCardend repeatpop cardunlock screenend patchScripton patchResourceglobal gStackList,gTargetStackListput myfolder(short name of this stack) into myStacklock screenrepeat with i = 1 to the number of cds of bg "resourcePatch"go cd i of bg "resourcePatch"set cursor to busyput line hasContains(fld "stackName",gStackList) of gTargetStackList into targStackif getVerRes(targStack) >= fld "version" then next repeatif fld "patres" is empty thencopyRes myStack,targStack,item 1 of fld "orgRes",item 2 of fld "orgres"get the resultelsecopyRes myStack,targStack,item 1 of fld "orgRes",item 2 of fld "orgres",fld "patres"get the resultend ifif it is not empty then answer itend repeatrepeat with i = 1 to the number of lines of gTargetStackListget line i of gTargetStackListcopyRes myStack, it, "vers", 20000, 2get the resultif it is not empty thenanswer "ﾃ嘉､ﾃ噂ﾃ…[ﾃ厩ﾃ‡ﾃε嘘ﾃ鋭ﾃ…[ﾃ‡窶ｦﾃｩ竏湘ｮsﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩ"end ifend repeatunlock screenend patchResourceon patchPictureglobal gStackList,gTargetStackListlock screenpush cardput tool() into curToolrepeat with i = 1 to the number of cds of bg "PaintPatch"go cd i of bg "paintPatch"put line hasContains(fld "stackName",gStackList) of gTargetStackList into targStackif getVerRes(targStack) >= fld "version" then next repeatchoose select toolpict2clip(fld "ID")push cardgo card id fld "card id" of stack line hasContains(fld "stackName",gStackList) of gTargetStackListdomenu "paste picture"pop cardend repeatchoose curToolpop cardunlock screenend patchPictureon compactStacksglobal gTargetStackListanswer "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｪﾃ†ﾃｳﾃｹﾃ‡ï｣ｿﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" or "ﾃ‡ﾃ陛‡ﾂ｢"if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" thenexit compactStacksend iflock screenrepeat with i = 1 to the number of lines of gTargetStackListset cursor to busypush cardgo stack line i of gTargetStackListdomenu "Compact Stack"pop cardend repeatunlock screenend compactStacks</script>
  17.     <background id="2072" file="background_2072.xml" name="ResourcePatch" />
  18.     <background id="2627" file="background_2627.xml" name="" />
  19.     <background id="4485" file="background_4485.xml" name="ScriptPatch" />
  20.     <background id="7601" file="background_7601.xml" name="PaintPatch" />
  21.     <background id="9417" file="background_9417.xml" name="" />
  22.     <card id="2953" file="card_2953.xml" marked="false" name="" owner="2627" />
  23.     <card id="4279" file="card_4279.xml" marked="false" name="about" owner="2627" />
  24.     <card id="4862" file="card_4862.xml" marked="false" name="" owner="4485" />
  25.     <card id="5310" file="card_5310.xml" marked="false" name="" owner="4485" />
  26.     <card id="5528" file="card_5528.xml" marked="false" name="" owner="4485" />
  27.     <card id="5727" file="card_5727.xml" marked="false" name="" owner="4485" />
  28.     <card id="6078" file="card_6078.xml" marked="false" name="" owner="4485" />
  29.     <card id="6241" file="card_6241.xml" marked="false" name="" owner="4485" />
  30.     <card id="6550" file="card_6550.xml" marked="false" name="" owner="4485" />
  31.     <card id="8994" file="card_8994.xml" marked="false" name="" owner="4485" />
  32.     <card id="8406" file="card_8406.xml" marked="false" name="" owner="4485" />
  33.     <card id="10179" file="card_10179.xml" marked="false" name="" owner="4485" />
  34.     <card id="2394" file="card_2394.xml" marked="false" name="" owner="2072" />
  35.     <card id="8531" file="card_8531.xml" marked="false" name="" owner="2072" />
  36.     <card id="8745" file="card_8745.xml" marked="false" name="" owner="2072" />
  37.     <card id="10387" file="card_10387.xml" marked="false" name="" owner="2072" />
  38.     <card id="7760" file="card_7760.xml" marked="false" name="" owner="7601" />
  39.     <card id="9516" file="card_9516.xml" marked="false" name="Preference" owner="9417" />
  40. </stack>
  41.